package Data::Conveyor::App::Test::SIF::Unit;

# $Id: Unit.pm 13653 2007-10-22 09:11:20Z gr $

use warnings;
use strict;


our $VERSION = '0.02';


use base 'Class::Scaffold::App::Test::YAMLDriven';


sub run_test {
    my $self = shift;

    my $test_def = $self->current_test_def->{execute};
    my $meth = $test_def->{method};

    $self->expect($self->current_test_def->{expect});

    my $sif = $self->delegate->make_obj('service_interface_soap');
    $sif->args(%{$test_def->{param}}) if $test_def->{param};
    my $result = $sif->$meth;

    foreach my $check (keys %{$self->{expect}}) {
        my $call = "check_$check";
        $self->$call($result);
    }
}


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - stage-based conveyor-belt-like ticket handling system

=head1 SYNOPSIS

    {% p.package %}->new;

=head1 DESCRIPTION

None yet. This is an early release; fully functional, but undocumented. The
next release will have more documentation.

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

